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WILF’ 


Wilf Hey — 
learns to draw 
Spirograph- 
style pictures 
and presents 
a couple of 
useful C sub- 


routines. 


hough I am British born my accent is laced with 
oP Canadian pronunciation — partly from my years in 

Canada, but also because of my resolutely Canadian 
wife. Barbie speaks proudly of her accomplishments, and 
expects applause for every time she employs a British fig- 
ure of speech. Sometimes I catch her ‘practising British 
talk’ — but she will never fool anyone, I am afraid. 

My own accent just confuses people — but none more 
than a young man I met on my way into a recent business 
show in London. 

He accosted me with an excited shout ‘I know you! I 
know you!’ I smiled indulgently at the recognition I was 
given: finally I had made an impact on the world. The 
young man flattered me by exclaiming that I was an inspi- 
ration to him. 

For a moment I felt suspicious: was he fishing for a 
free subscription, or...no. Of course I had every right to 
be an inspiration to young up-and-coming programmers. 
He thrust a pen and a blank card into my hand, and 
asked for my autograph. Instantly any qualms I had were 
laid to rest: I realised that here was a young man of 
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incredibly mature judgment. 

As I finished my scrawl, he whisked the pen and card 
out of my hand and said ‘Thanks a lot Mister Pavarotti’. It 
took me six coffees in the press suite before I regained 
my composure. 


CHEAP FRILLS 

Adrian Dunn (see also A Little Misunderstanding on page 
332) sent in this brilliant program in GW-Basic...er...Basic2 
for drawing interesting shapes on the screen. He calls it a 
Spirograph simulator. I had to consult an expert on this — 

I (and my dictionary) thought a Spirograph was an instru- 
ment for measuring respiration, but the young boy next 
door tells me it is, in fact, a drawing toy with gears and 
plastic templates. 

The program actually works when run under both vari- 
eties of Basic because of the ON ERROR trap at the start 
of the program: it handles instructions that are invalid in 
one language but valid in the other. 

Unfortunately the trick doesn’t work with QBasic — but 
it is easy just to remove the statements that cause errors. 
Adrian recommends this method of defensive program- 
ming to ensure portability. 

Given the right parameters this program indeed pro- 
duces some interesting screen effects — and a lot faster 
than Mandelbrot graphics. 


10 ON ERROR GOTO 420 
20 KEY OFF 

30 STREAM #1 

LS 
INDOW FULL 
INDOW OPE! 
T=35 14059 


Ky 


oO’ 
je) 
naQV=SE=zQ 


NPUT “Enter radius of ring”;R1 
NPUT “Enter radius of disk”;R2 
Enter radius of hole”;R3 
NPUT “Enter step size”;S 
Enter colour number” ;C 


190 GOTO DRAWLOOP 
200 SCREEN 1 
210 PSET(160+R1+R3-R2,100) 

220 X=160+(R1-R2) *COS (A) +R3*COS (-1*A*R1/R2) 

230 Y=100+(R1-R2) *SIN(A) +R3*SIN(-1*A*R1/R2) 

E — (X,Y¥),C 

250 A = A+S 

260 AS + INKEYS 

IF AS<>"" THEN SCREEN 0:GOTO 80 

280 GOTO 220 

290 LABEL DRAWLOOP > 


r 
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300 CLS 

310 OX=4000+R1+R3-R2 

320 OY=2500 

330 X=4000+ (R1-R2) *COS (A) +R3*COS (-1*A*R1/R2) 
340 Y=2500+(R1-R2) *SIN(A) +R3*SIN(-1*A*R1/R2) 
350 LINE OX;OY,X;Y COLOUR C 


360 OX =X 
37 0N0Y =ay 
380 A = A+S 


390 AS = INKEYS 

400 IF AS<>”"" THEN GOTO 80 
410 GOTO 330 

420 RESUME NEXT 


FOREIGN INTRIGUE 

I was handed a letter from Everaldo Attard of Malta, who 
reads us regularly and counts programming as his main 
hobby. He asks, ‘Can you tell me if foreigners like me can 
submit their programs to the SuperDisk’— the answer is 
definitely YES — we have absolutely no restrictions. 

There are several ways in which you and other readers 
living outside the UK can participate in the magazine: not 
only here and SuperDisk, but also Help Screen and letters 
to the Editor. If you have access to CompuServe, please 
contact us on GO PCPLUS. 

If you live in far-off climes you may get your PC PLUS 
issues after their cover date, but don’t let that stop you 
contacting us. 


TSR PROJECT 

Chuck Pettitt — formerly of Germany — is a regular partici- 
pant in this column and in SuperDisk. He has now 
returned to Britain (Melksham in Wiltshire) and is eager to 
renew his programming vigour with useful projects. 

He is now fired up about the prospect of people who 
use high-level languages (like QuickBasic, he mentions in 
particular) being able to write a TSR. 

You remember what a TSR (Terminate and Stay 
Resident) is: a program that, once it is loaded, stays resi- 
dent but gives up control; usually it waits for a particular 


ot 


event or sequence of keys, and when that happens it 
pops back into action. Several useful things can be done 
with a TSR including special calculators, reference charts 
and address books. 

If anybody has any ideas pertaining to TSRs in 
QuickBasic, please write to Chuck through me at the 
address at the end of the column. 


MORE...MORE...MORE 

One of the programs on the SuperDisk this month — 
WHATSIN, from Clockwork Software — has an interesting 
feature which will be of interest to many programmers. Its 
output may on some occasions be several screens long: it 
prints to the screen a single line at a time and allows DOS 
to take care of scrolling. 

The program will generate a special ‘press a key to 
continue’ display when it has printed a screenful of lines 
— an easy enough bit of code to insert that makes it faster 
and easier to use than having to pipe the results into the 
MORE filter. 

That's not so interesting — anybody can do that, you 
are probably saying. But WHATSIN doesn’t finish there. 
Because the output is something you may want to have as 
hard copy (for later perusal) you may wish to redirect the 
output like this: 


WHATSIN \PROJECTS >\REPORT 


This program has a useful little trick; it checks whether its 
output is being redirected. If it is, then it makes a note to 
‘forget’ the in-built MORE feature. Now that’s what I call 
really classy! 

The code for this is in a subroutine called COUNTL 
(the program is written with the A86 assembler in mind), 
This is called each time a line is printed on to the screen 
to determine whether a screenful has just been generated. 
If it has, it then checks to see whether the output device 
(handle 01 is always assigned to STDOUT) is pointing to a 
character device (such as the console — which is the nor- 
mal STDOUT). 


A LITTLE MISUNDERSTANDING : A 


_ Adrian Dunn of Penkridge, Stafford writes to follow up our discus- 
| sion in PC PLUS issue 68 (May 1992) wherein | suggested resetting 
‘the computer if the user fails to enter a correct password ‘presum- 
| ably to cause as much inconvenience as possible’. Adrian suggests 
| that another simpler and more inconvenient possibility is to ‘hang’ 
_ the computer - he means in a small closed loop of instructions, 
|| rather than from the ceiling. 
He suggests the following GW-Basic code, which would lock out 
| everything except a reset button and the power switch: 


| 1000 DEF sEc = 0 
| 1010 PORE &h417,0 
|} 1020 Goro 1010 ~ 


| This poke tums off all locks, including [Ctrl] and [Alt]. To rub sale 
| into the wound he writes ‘Although | personally see no harm in 


| using a GOTO in this program I know that many people hate them, 
I also Present an alternative version - but this time it's in 
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years ago. At the time we were developing programs in a language _ 
that featured a HALT instruction to end a procedure; whenever a 
HALT occurred, the operator was expected to make a decision — 
before pressing a ‘GO’ button. a 
Dan didn’t really understand how a HALT instruction worked. 
At first | didn’t really believe a person could misunderstand, but 
Dan thought that HALT instructions were rather like hurdles: you _ 
must have several in a row. The first one trips up the program flow. 
a little; the second really slows it down (if it were going too fast); it 
might be down on all fours after the third HALT ~ and you could be 
virtually assured of the program stopping after four or five HAL 


One day Dan showed me a new trick he had thought up, repr 


in a row. There was no persuading him otherwise. 


100 HALT 
110 HALT 
120 GoTo 100 


‘This he had tested, and assured me that it was ‘nearly as goc 
putting an infinite row of HALTs'. He explained that the GOT 
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If the requisite bits are missing the routine makes a 
hasty exit, knowing that output is redirected to printer or 
a disk file — so the MORE-type message is unwanted: 
count1: 

test printsw jare we printing ? 

jnz ret ;no — don’t count 

inc lcount 


cmp lcount,22 ;reached a high number? 


jnz ret ;nope 

mov lcount,1 ;reset for one line 

mov ax,04400h j;set to get device info 
mov bx,01 ;.-about STDOUT 

int 21h 

and dl1,086h ;only looking at a few bits 
cmp dl1,082h jis it a character device 
jnz ret ;no — then no pause 


mov dx,offset pausemsg 

call cnlprint 

mov ax, 0C08h ;get a character 
int 21h 

call icerlt 

mov dx,offset heading 

call cnlprint 

mov dx,offset sechdg 

call cprint 

ret 


THE TINY GEMS 

John Worley, the guru of Clockwork Software, has suf- 
fered ridicule at the hands of some who have asked him 
advice about a problem in C, only to be told that he 
doesn’t know C. In fact John specialises in assembler and 
sticks to it. 

One programmer scolded him for his ignorance of C, 
calling him ‘linguistically challenged’, and demonstrated a 
little utility he had written in C. Called TOPRINT, this was 
designed to send desired characters and control codes 
direct to LPT1; this would be useful to change between 
different printer modes — or change the input hopper 
before the next program starts, for instance. The C mani- 
festation of this program took a meagre 11K when it was 
ready to run. John offered his assembler-coded variant, 
which weighed in at 47 bytes! 

Listen everybody: don’t tell John how much easier it is 
to code in high-level languages. If you convert him, there 
will be fewer tiny programs around. And I am sure many 
of you agree that it is the tiny gems that sparkle most. @ 


Tips, arguments and ideas are gratefully received by 
Wilf's Programmers’ Workshop 
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